home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinNT AutoLogin NW Enable.xpl < prev    next >
Text File  |  2001-05-05  |  2KB  |  57 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Network\Auto Login\NetWare"
  5. "NAME"="General"
  6. "VERSION"="1.03"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="0101"
  9. "TEXT 1"="Enable auto login"
  10. "DESCRIPTION 1"="Auto login can be used to eliminate the "Press Ctrl+Alt+Del to login" screen."
  11. "DESCRIPTION 2"="Enable auto login ONLY if you have set the correct values before with the "Settings" plug-in."
  12. "DESCRIPTION 3"="Be advised, your password and user name information will be kept in the system registry in a non-encrypted form and could be revealed if anyone were to logon locally to your machine and open the Registry Editor.  We suggest only using this if you have non-critical data on your computer or if the machine is located in a secure physical environment."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17.  
  18.  
  19.  
  20.  
  21. sRP="HKLM\SOFTWARE\NOVELL\NWGINA\Login\"
  22. Sub Plugin_Initialize 
  23.  if RegPathExists(sRP) then
  24.   i=RegReadValue(srp&"NetWareAutoAdminLogon")
  25.   if i=1 then 
  26.    SetUIElement 1,true
  27.   end if
  28.  else
  29.   Disable
  30.  end if
  31. End Sub
  32.  
  33. Sub Plugin_CheckData(ElementIndex)
  34. End Sub
  35.  
  36. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  37.  b=GetUIElement(1)
  38.  if b=true then
  39.     call RegWriteValue(srp&"NetWareAutoAdminLogon","1",1)
  40.     Call MsgWarning("NOTICE: To log on to the system as a different user, hold down the Shift key after logging off and you'll see the regular logon dialog box again.")
  41.  else
  42.   s=RegReadValue(srp&"NetWareAutoAdminLogon")
  43.  
  44.   if IsNull(s)=false and Len(s)>0 then
  45.      Call RegDeleteValue(srp&"NetWareAutoAdminLogon")
  46.   end if
  47.  end if
  48.  
  49.  Call Logoff()
  50. End Sub
  51.  
  52. Sub Plugin_Terminate 
  53. End Sub
  54.  
  55.  
  56.  
  57.